Private Sub Form_Load()
  Dim x, y As Single
  x = InputBox(" x  ֵ", "ֵ", 0)
  If  x > 0 Then y = 10 Else If  x = 0 Then y = 0  Else y = -10
  Console.WriteLine(" x ={0}ʱ y ={1} ", x, y)
End Sub



